This forum is closed to new posts and
responses. Individual names altered for privacy purposes. The information contained in this website is provided for informational purposes only and should not be construed as a forum for customer support requests. Any customer support requests should be directed to the official HCL customer support channels below:
I still don't see how you get this line to compile... ~Umberto Nongeroson 20.Jan.04 06:24 PM a Web browser Domino Designer All ReleasesAll Platforms
Call doc.ReplaceItemValue "Form",Left$(InData$,3))
you are still missing the "("
But anyway, My guess would be that you have a leading line less than 100 characters and that counter% is getting incremented anyway...
counter% = counter% + 1
If Len(InData$) > 100 Then
You might change it like this...
Do While Not Eof(fileNum%)
Line Input #fileNum%, InData$
If Len(InData$) > 100 Then
counter% = counter% + 1
If counter% = 1 Then
Set doc = New NotesDocument(db)
Call doc.ReplaceItemValue("Form",Left$(InData$,3))
Call doc.ReplaceItemValue("SendTo","John Smith/Boston")
Call doc.ReplaceItemValue("From","Test User/Boston")
Call doc.ReplaceItemValue("ReturnReceipt","0")
Infox(counter%-1) = Mid$(InData$,56,114)
Call doc.ReplaceItemValue("Detail",Mid$(InData$,56,114))
Else
Infox(counter%-1) = Mid$(InData$,56,114)
End If
countRec% = countRec% + 1
Elseif Left$(InData,5) = "$$$$$" Then
Call doc.ReplaceItemValue("Detail",Infox)
Call doc.save(True, False)
Call doc.Send(True, "John Smith/Boston")
Redim Infox(20)
countRec% = 0
counter% = 0
Else
countRec% = 0
End If
Loop
Return to top
. . . . . . I still don't see how you get this ... (~Dan Elhipister... 20.Jan.04) 
Print this page
